home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 18 / Big_Mouth_The_18_1998_-_Side_D.d64 / mega kines _pstk (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  199 lines
  1. 1 ifpeek(816)=165andpeek(817)=244then5
  2. 2 print"kill cartridge!!":end
  3. 5 poke53281,0:poke53280,0:clr
  4. 10 print"[142]";
  5. 20 print"";
  6. 25 fori=0to24:poke54272+i,0:next:poke54296,15+16:poke54295,240+3:poke54294,70
  7. 27 poke54277,0:poke54278,224:poke54275,1:poke54276,65:poke54272,90:poke54273,2
  8. 29 poke54284,0:poke54285,15*14+0:poke54283,129:poke54272+7,0:poke54273+7,240
  9. 30 aa$="     [176][192][192][204][175][210][198][195][196][197][208]  "
  10. 40 ab$="   [176][192][177][192][192][177][192][192][178][195][196][197][183]  "
  11. 50 ac$="[160][176][192][177][177][177][177][177][177][177][177][177][192][174]    "
  12. 60 ad$="[160] [191][163][163][163][163][163][163][163][163][163][191]     "
  13. 70 ae$="[160]  [191][191][191][191][191][191][191][191][191][190]     "
  14. 80 ba$="     [176][192][192][204][210][198][195][196][197][183][208]  "
  15. 90 bb$="   [176][192][177][192][192][177][192][192][178][196][197][183][183]  "
  16. 100 bc$="[160][176][192][177][177][177][177][177][177][177][177][177][192][174]    "
  17. 110 bd$="[160] [161][163][163][163][163][163][163][163][163][163][161]     "
  18. 120 be$="[160] [223][175][198][175][196][210][195][175][198][197]      "
  19. 121 c$="[197][183][183][197][183][183][183][197][196][197][183][183][197][195][198][196][183][183][183][196][183][183][197][183][183][183][183][196][195][196][197][196][197][195][210][195][197][183][196][197]":c$=c$+c$
  20. 129 print"[149]";mid$(c$,40,39)
  21. 130 print"";
  22. 140 fori=1to17step2:j=i+1
  23. 150 printright$(aa$,i):printright$(ab$,i):printright$(ac$,i):printright$(ad$,i)
  24. 160 printright$(ae$,i):print"[145][145][145][145][145]";:fork=1to50:next
  25. 170 printright$(ba$,j):printright$(bb$,j):printright$(bc$,j):printright$(bd$,j)
  26. 180 printright$(be$,j):print"[145][145][145][145][145]";:fork=1to50:next
  27. 190 nexti
  28. 200 fori=1to10step2:j=i+1
  29. 240 printspc(i)aa$:printspc(i)ab$:printspc(i)ac$:printspc(i)ad$:printspc(i)ae$
  30. 245 print"[145][145][145][145][145]";:fork=1to50:next
  31. 250 printspc(j)ba$:printspc(j)bb$:printspc(j)bc$:printspc(j)bd$:printspc(j)be$
  32. 255 print"[145][145][145][145][145]";:fork=1to50:next
  33. 260 next:c=i
  34. 265 forj=1to2:fori=1to40step2
  35. 270 printspc(c)aa$:printspc(c)ab$:printspc(c)ac$:printspc(c)ad$:printspc(c)ae$
  36. 272 print"[149]"mid$(c$,i,39)"[145][145][145][145][145][145]"
  37. 275 fork=1to15:next
  38. 280 printspc(c)ba$:printspc(c)bb$:printspc(c)bc$:printspc(c)bd$:printspc(c)be$
  39. 282 print"[149]"mid$(c$,i+1,39)"[145][145][145][145][145][145]"
  40. 285 fork=1to15:next
  41. 290 next:next
  42. 300 print"";
  43. 310 print"[151]       [223][169]     [146][169]          [169] [146][169]"
  44. 320 print"[152]      [169]     [146][169]          [169] [146][169]"
  45. 330 print"[155]      [169]        [169] [223][169][194][223]"
  46. 340 print"===================================[165][194] [146]>"
  47. 345 rem print "       [146][169][169]        [146][169]            [223]"
  48. 350 print"[155]     [146][169]          [146][223] [146][169][223][194][146][169]"
  49. 360 print"[152]   [169]     [146][169]           [146][223]  [223]"
  50. 370 print"[151]   [169]     [146][169]            [146][223]  [223]":print"";
  51. 385 forj=1to2:fori=1to40step2
  52. 390 printspc(c)aa$:printspc(c)ab$:printspc(c)ac$:printspc(c)ad$:printspc(c)ae$
  53. 392 print"[149]"mid$(c$,i,39)"[145][145][145][145][145][145]"
  54. 395 fork=1to15:next
  55. 400 printspc(c)ba$:printspc(c)bb$:printspc(c)bc$:printspc(c)bd$:printspc(c)be$
  56. 402 print"[149]"mid$(c$,i+1,39)"[145][145][145][145][145][145]"
  57. 405 fork=1to15:next
  58. 410 next:next
  59. 420 print"";
  60. 430 print"     ,,, ,,, ,,, ,,, ,,, ,  , ,,, ,,,"
  61. 440 print"    [150], , [155], , [154],   [153],   [150],   [155],, , [154] ,  [153],  "
  62. 450 print"   [150],,, [155],,, [154],,, [153],,, [150],,, [155],, , [154] ,  [153],,,"
  63. 460 print"  ,   [156],,  ,     , ,   [156], ,,  ,    ,"
  64. 470 print" ,   [156], , ,     , ,   [156], ,,  ,    ,"
  65. 480 print",   [156], , ,,, ,,, ,,, [156],  ,  ,  ,,,":print"";
  66. 500 forj=1to2:fori=1to40step2
  67. 510 printspc(c)aa$:printspc(c)ab$:printspc(c)ac$:printspc(c)ad$:printspc(c)ae$
  68. 512 print"[149]"mid$(c$,i,39)"[145][145][145][145][145][145]"
  69. 515 fork=1to15:next
  70. 520 printspc(c)ba$:printspc(c)bb$:printspc(c)bc$:printspc(c)bd$:printspc(c)be$
  71. 522 print"[149]"mid$(c$,i+1,39)"[145][145][145][145][145][145]"
  72. 525 fork=1to15:next
  73. 530 next:next
  74. 540 poke54295,240+1:poke54276+7,0:poke54276,0:poke54278,240+12
  75. 550 poke54273,1:poke54276,129:poke54276,128
  76. 560 print"[147]        s c a b o o o o o m  !"
  77. 561 print"        f l a d a m m m m m  !"
  78. 565 fori=1to3
  79. 570 wait53265,128:poke53281,11:poke53280,11:forj=1to10:next
  80. 580 wait53265,128:poke53281,12:poke53280,12:forj=1to10:next
  81. 590 wait53265,128:poke53281,15:poke53280,15:forj=1to10:next
  82. 600 wait53265,128:poke53281,1:poke53280,1:forj=1to10:next
  83. 610 wait53265,128:poke53281,15:poke53280,15:forj=1to10:next
  84. 620 wait53265,128:poke53281,12:poke53280,12:forj=1to10:next
  85. 630 wait53265,128:poke53281,11:poke53280,11:forj=1to10:next
  86. 640 wait53265,128:poke53281,0:poke53280,0:forj=1to10:next:next
  87. 650 fori=1to400:next
  88. 655 print"[147][155]";
  89. 660 print"  [223][169]          [169]     [223][169][223]"
  90. 670 print"   [223][169]           [169]       [223][169]  [223]"
  91. 680 print"    [223][169]          [146][169]  [223]  [169]    [223]"
  92. 690 print"   [146][223]  [146][169]            [169]  [146][169][223]  [223]"
  93. 700 print"   [146][223][169]                      "
  94. 710 print"            [223][169]          "
  95. 720 print"              [146][223]       [146][169]      "
  96. 730 print"              [146][223]     [146][169]      "
  97. 740 print:print:print:print
  98. 750 print"   **  **  **  **   ** ******  ****   "
  99. 760 print"   ** **   **  ***  ** ****** **  **  "
  100. 770 print"   ****    **  **** ** **     **      "
  101. 780 print"   ****    **  ******* ****    ****  "
  102. 790 print"   ** **   **  ** **** **         **   "
  103. 800 print"   **  **  **  **  *** ****** **  **   "
  104. 810 print"   **  **  **  **   ** ******  ****    "
  105. 820 fori=1to2500:next
  106. 900 fori=0to24:poke54272+i,0:next:poke54296,15
  107. 910 fori=0to10:r(i)=200+7*rnd(0):next
  108. 920 poke56334,0
  109. 1000 print"[147]";
  110. 1010 printspc(8)"    [146]"
  111. 1015 printspc(8)" [146]   [146]"
  112. 1020 printspc(7)"co[146]din[146]g: kentsu, !ajy"
  113. 1025 printspc(8)" [146]   [146]"
  114. 1030 printspc(8)" [146]   [146]"
  115. 1035 printspc(8)" [146]   [146]"
  116. 1040 printspc(8)"    [146]"
  117. 1045 printspc(8)" [146]"
  118. 1050 printspc(8)" [146]"
  119. 1055 printspc(8)" [146]"
  120. 1060 printspc(8)" [146]"
  121. 1065 printspc(8)" [146]"
  122. 1090 gosub1500
  123. 1100 print"";
  124. 1110 printspc(14)"    [146]"
  125. 1115 printspc(14)" [146]"
  126. 1120 printspc(14)" [146]"
  127. 1125 printspc(14)" [146]"
  128. 1130 printspc(7)"gf[146]x: [146]   [146]kentsu, make"
  129. 1135 printspc(14)"    [146]"
  130. 1140 printspc(17)" [146]"
  131. 1145 printspc(17)" [146]"
  132. 1150 printspc(17)" [146]"
  133. 1155 printspc(17)" [146]"
  134. 1160 printspc(17)" [146]"
  135. 1165 printspc(14)"    [146]"
  136. 1190 gosub1500
  137. 1200 print"";
  138. 1210 printspc(20)"     [146]"
  139. 1215 printspc(22)" [146]"
  140. 1220 printspc(22)" [146]"
  141. 1225 printspc(22)" [146]"
  142. 1230 printspc(22)" [146]"
  143. 1235 printspc(22)" [146]"
  144. 1240 printspc(7)"music[146]s: !aj[146]y, ma[146]ke"
  145. 1245 printspc(22)" [146]"
  146. 1250 printspc(22)" [146]"
  147. 1255 printspc(22)" [146]"
  148. 1260 printspc(22)" [146]"
  149. 1265 printspc(22)" [146]"
  150. 1290 gosub1500
  151. 1300 print"";
  152. 1310 printspc(27)"  [146]"
  153. 1315 printspc(27)"  [146]"
  154. 1320 printspc(27)"  [146]"
  155. 1325 printspc(27)"  [146]"
  156. 1330 printspc(27)"  [146]"
  157. 1335 printspc(27)"  [146]"
  158. 1340 printspc(27)"  [146]"
  159. 1345 printspc(27)"  [146]"
  160. 1350 printspc(7)"so[146]unds: ken[146]tsu, [146]!ajy  [146]"
  161. 1355 printspc(27)"  [146]"
  162. 1360 printspc(27)"  [146]"
  163. 1365 printspc(27)"  [146]"
  164. 1390 gosub1500
  165. 1400 poke56334,1:poke53270,200:fori=1to70:next:goto2000
  166. 1500 poke54278+7,14*16+10:poke54273+7,100:poke54276+7,129
  167. 1502 forj=1to2:next:poke54276+7,128
  168. 1505 fori=0to6
  169. 1510 poke54275,6
  170. 1515 poke54278,14*16+9
  171. 1520 poke54276,65
  172. 1530 forj=10to0step-1.8:poke54273,j:poke53270,r(j):next
  173. 1535 forj=10to0step-1.8:poke54273,j:poke53270,r(j):next
  174. 1540 poke54273,4:poke54275,8:forj=1to120:next
  175. 1550 next
  176. 1560 forj=10to0step-1.8:poke54273,j:poke53270,r(j):next
  177. 1565 forj=10to0step-1.8:poke54273,j:poke53270,r(j):next
  178. 1570 poke54273,4:poke54275,8
  179. 1590 return
  180. 2000 poke53281,11:poke53280,11
  181. 2001 poke54278+7,14*16+14:poke54273+7,0:poke54272+7,240:poke54276+7,129
  182. 2002 forj=1to2:next:poke54276+7,128
  183. 2003 poke54276,0
  184. 2005 poke53281,0:poke53280,0:print"[147]";
  185. 2010 printspc(17)"[223][169][146]"
  186. 2020 printspc(17)" [223][169] [146]"
  187. 2030 printspc(17)"[172][187][172][187][146]"
  188. 2040 printspc(17)"[188][190][188][190][146]"
  189. 2050 printspc(15)"    [146]"
  190. 2060 printspc(15)"    [146]"
  191. 2070 printspc(15)"  [223][169]  [146]"
  192. 2080 printspc(15)"[223]        [146][169]"
  193. 2090 printspc(16)"[223]      [146][169]"
  194. 2100 print"            code 100% basic!"
  195. 2500 print"[144]load"chr$(34)"01*"chr$(34)",8:"
  196. 2510 print"run:";
  197. 2520 poke198,2:poke631,13:poke632,13
  198. 2530 end
  199.